home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
cadence.zip
/
VOL1NO3.ZIP
/
TOLOWER.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-07-17
|
628b
|
19 lines
10 'This program converts upper-case characters in the input file
20 'to lower case in the output file.
50 '
100 DEFINT A:CLS:KEY OFF
110 LOCATE 13,25:INPUT "Wordstar file to convert - ";IFN$
120 LOCATE 15,25:INPUT "Converted file name - ";OFN$
130 OPEN IFN$ FOR INPUT AS #1
140 OPEN OFN$ FOR OUTPUT AS #2
150 CLS:LOCATE 13,25:PRINT "Working on character - ";
160 WHILE NOT EOF(1)
170 A1=ASC(INPUT$(1,1))
180 IF A1<65 OR A1>90 THEN 210
190 LOCATE 13,48:PRINT CHR$(A1)
200 A1=A1+32
210 A$=CHR$(A1):PRINT #2,A$;
220 IF A1=26 THEN 999
230 WEND
999 CLOSE:CLS:KEY ON:LOCATE 13,30:PRINT "Done....":BEEP